e (setq $print-budget-monthly nil) read (salary in dsk (pro he)) read (nsf in dsk (pro he)) budget total (nsf out dsk (pro he))